#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'RWMAKE.CH'
/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! MA410COR                                                 !
+------------------+---------------------------------------------------------+
!Descricao         ! PE - Status do Pedido, Se eh orcamento                  !
+------------------+---------------------------------------------------------+
!Autor             ! Ricardo - DataRoute                                   !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 11/11/2014                                              !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/

User Function MA410COR

Local aCores := {}

If SC5->(FieldPos("C5_BLQ")) == 0
	aCores := {{"Empty(C5_LIBEROK).And.Empty(C5_NOTA).and. C5_STATUS <> '2'",'ENABLE' },;		//Pedido em Aberto
				{ "!Empty(C5_NOTA).Or.C5_LIBEROK=='E'.and. C5_STATUS <> '2'",'DISABLE'},;		   	//Pedido Encerrado
				{ "!Empty(C5_LIBEROK).And.Empty(C5_NOTA).and. C5_STATUS <> '2'",'BR_AMARELO'},;	//Pedido Liberado
				{ "C5_STATUS == '2'","BR_PINK"}} // Orcamento       

Else
	aCores := {{"Empty(C5_LIBEROK).And.Empty(C5_NOTA) .And. Empty(C5_BLQ).and. C5_STATUS <> '2'",'ENABLE' },;		//Pedido em Aberto
				{ "!Empty(C5_NOTA).Or.C5_LIBEROK=='E' .And. Empty(C5_BLQ).and. C5_STATUS <> '2'" ,'DISABLE'},;		   	//Pedido Encerrado
				{ "!Empty(C5_LIBEROK).And.Empty(C5_NOTA).And. Empty(C5_BLQ).and. C5_STATUS <> '2'",'BR_AMARELO'},;
				{ "C5_BLQ == '1' .and. C5_STATUS <> '2'",'BR_AZUL'},;	//Pedido Bloquedo por regra
				{ "C5_BLQ == '2' .and. C5_STATUS <> '2'",'BR_LARANJA'},;	//Pedido Bloquedo por verba
				{ "C5_STATUS == '2'","BR_PINK"}} // Orcamento       
Endif			

Return aCores      

//MT440AT